home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO086A.dsk / WARP6:GEN:F1 / DO.USERLIST.bas next >
BASIC Source File  |  2012-02-16  |  648b  |  16 lines
  1. 10  REM  DO.USERLIST Copyright 1989 Jim Ferr. All rights reserved.
  2. 15  REM  This program needs a file called 'TEXT' which you can
  3. 16  REM  generate with AppleWorks. The file should be sorted by
  4. 17  REM  last name and contain two fields: first name & last name.
  5. 20 D$ =  CHR$(4)
  6. 25  INPUT "Date updated? (No commas, please.) : ";DT$
  7. 30  PRINT D$"DELETE F1"
  8. 40  PRINT D$"APPEND F1": PRINT "User Listing"
  9. 50  PRINT : PRINT "Updated ";DT$;".": PRINT : PRINT 
  10. 60  PRINT D$: PRINT D$"OPEN TEXT"
  11. 70  ONERR  GOTO 1000
  12. 80  PRINT D$"READ TEXT": INPUT N1$,N2$
  13. 90  PRINT D$: PRINT D$"APPEND F1"
  14. 100  PRINT N1$ +" " +N2$
  15. 130  GOTO 80
  16. 1000  PRINT D$"CLOSE": END